home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Net / Utilities / Seer family 2.0 / seer_common / sc_pdl_special.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-08-29  |  530 b   |  28 lines  |  [TEXT/KAHL]
  1. /*
  2.     special functions - c code called from the interpreter by the
  3.     special opcode
  4. */
  5. #include "sc.h"
  6. #include "pdl_data.h"
  7. #include "sc_pdl_dat.h"
  8.  
  9. /*compute nbp prefix padding length, input t0(idlen) output t1(padding)*/
  10. void rRTMPidpad(pdl_pr_dat_pt);
  11. void rRTMPidpad(pdl_dat)
  12. register pdl_pr_dat_pt pdl_dat;
  13. {pdl_dat->pr_regs[t1] = pdl_dat->pr_regs[t0] % 8;
  14. }
  15.  
  16. void do_special(pdl_dat,what_rtn)
  17. pdl_pr_dat_pt pdl_dat;
  18. long what_rtn;
  19. {switch(what_rtn) {
  20.  case RTMPidpad:
  21.      rRTMPidpad(pdl_dat);
  22.      break;
  23.  default:
  24.      break;
  25.  }
  26. }
  27.  
  28.